package body Managed.Alarm is
  protected body Command is
    procedure Set_Alarm(Which : in Integer) is
    begin
      Alarm   := Which;
    end Set_Alarm;

    procedure Set(cmd : in Alarm_Command_Type) is
    begin
      Command := cmd;
    end set;

    function Retrieve return Alarm_Command_Type is
    begin
      return Command;
    end Retrieve;

    function Retrieve_Alarm return Integer is
    begin
      return Alarm;
    end Retrieve_Alarm;
  end Command;
end Managed.Alarm;
